﻿<!--#include file="mymin.asp"-->
<%
dim rs,sql,id,TP,url
id=request.Querystring("id")
classs=request.Querystring("class")
TP=request.Querystring("TP")
if TP="2" then
	url="links.asp"
else
	url="mymin_class.asp"
end if

Set Rs=server.createobject("adodb.recordset")
Sql = "select * from 74hu_link Where id="&id
Rs.open Sql,myconn,2,3
if not (rs.bof and rs.eof) then
	rs("del")="1"
	rs.update()
	w "<meta http-equiv=""refresh"" content=""1;url="&url&"?sid="&sid&"&amp;id="&classs&"""><title>友链删除</title></head><body><div class='main400'>删除友链成功!正在返回..."
Else
	w "<title>出错!</title></head><body><div class='main320'>友链已删除或不存在"
end if

call Last2%>